home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tone.arc / TONEON.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-26  |  640 b   |  18 lines
  1. ; ROUTINE TO TURN ON TONE
  2. ;
  3. toneon  proc    far
  4. ;
  5.         push    ax              ; save registers
  6. ;
  7. ; turn speaker and timer on
  8.         in      al,61h          ; get contents of system port
  9.                                 ; B
  10.         or      al,3            ; turn speaker and timer on
  11.         out     61h,al          ; send out new values to port     
  12.                                 ; B
  13. ;
  14.         pop     ax              ; restore registers
  15.         ret
  16. ;
  17. toneon  endp
  18.